home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / rle_view < prev    next >
Text File  |  1995-03-31  |  11KB  |  185 lines
  1. From aurs01!aurw90!gingell@mcnc.org Wed Jun 12 17:49:20 1991
  2.  
  3. Subject: HP48S/SX RLE image viewer & decoder by Bob Scott.
  4. -------------------------------------------------
  5.  
  6. This is an RLE image viewer/decoder for the HP-48 family of calculators.
  7. Both high and medium res images are supported.  A sample image is included.
  8. Note: RLE = Run Length Encoded.  A large database of RLE files can be found
  9. on Compuserve in their QPICS forum  (GO QPICS).
  10.     
  11. files follow: RLE.DOC the documentation & RLE.HP (uuencoded) the program.
  12.  
  13. ------------------------------------------------------------------------
  14. The file RLE.HP is an HP-48 directory object containing an RLE (RUN
  15. LENGTH ENCODED) image decoder for the HP 48.  
  16.  
  17. Use:
  18. Transfer the directory to the 48.  Place an RLE image (string) on level
  19. one of the stack and press the softkey for the program RUN.  One sample
  20. image is included in the package as the variable "WX", which is a Compu-
  21. Serve high resolution weather map.  To view this image, press WX (recalls
  22. string to stack) then RUN (envokes viewer).  WX can be deleted when you're
  23. through playing with it.
  24.  
  25. When the program finishes, it beeps and drops you into the graphics view
  26. mode.  Use the arrow keys to pan around the image and the "-" key to shut
  27. off the menu keys (giving a larger image size).
  28.  
  29. Pressing the softkey labeled "CLR" will tidy up by erasing the program's
  30. temporary copy of the RLE string and clearing PICT.  This is not done
  31. automatically to allow you view the image later using the left-shift GRAPH
  32. function.  The image can be printed on the HP thermal printer by recalling
  33. PICT to the stack (e.g. type PICT then press RCL) and pressing PR1.
  34.  
  35. The program takes about five minutes for a high res image, less for medium
  36. res.  It searches for the the RLE start sequence ( <ESC>GH or <ESC>GM ) and
  37. begins from there, so it's okay if there is some garbage at the beginning
  38. of the file.  The end sequence is similarly located, but some images do not
  39. adhere to the RLE standard and leave this flag out.  As a fail-safe, the
  40. program appends a stop sequence to the RLE string before processing. 
  41. Consequently, garbage at the end of a file may be a problem if the RLE image
  42. isn't properly terminated.
  43.  
  44. Where do you get images?  Weather maps can be captured from CIS and countless
  45. images can be downloaded from the QPICS forum (GO QPICS).  I use a terminal
  46. program on the 48 that allows both capture of incoming text and Kermit
  47. up and downloads.  (I'd post it, but it's hideously slow.  Except for KERMIT
  48. transfers, it only processes at about 600 bps.  Praise be to ^Q/^S!)
  49.  
  50. Enjoy.  The usual disclaimers apply.  If your 48 explodes, your Smith
  51. Corona memory card melts down or you crash your car into a bus load of 
  52. nuns while playing with this on the freeway, it's your problem.  Your
  53. purchase price will be cheerfully refunded however!
  54.  
  55. Bob Scott 73125,1437
  56. -----------------------------------------------------------------------
  57.  
  58. begin 644 RLE.HP
  59. M2%!(4#0X+466*O!_OB@````"5U@"+"K0Z@$-"F-H87)A8W1E<G,N#0H;1T@@
  60. M?B!^(&4E*R$E(RPA)"4C(R,A(B$L(20E(R,D(R0C)",C)3`D)",C(R4C(R1[
  61. M(2HA(R(D(2,A*B(D(28A(R$B(2(A*R(H(2(A(R$B(2,A(B$C(2(A(R$D(3(A
  62. M(R$B(2,A(B$B(2,A(R$B(2,A>B$I(24A)R$L(20A*B$B(2(A+"$H(28A(B$B
  63. M(B(A(R$C(2<A,B$C(2(A(R$B(2,A(B$C(2(A(R%[(R4A)B$F(2TA)2,E(B,E
  64. M(B4D(2<A)2(C(2$A(2$B)20A)B$R)",E(B$C(2(E(B1^("$A(R$G(24A+B$H
  65. M(28A)2$L(28A*"$B(B(A(B$C(24A)2$R(2$A)"$C(2(A(R$B(2,A(B$A(7X@
  66. M(B$B(2@A)"$O(2@A(B$C(24A+"$E(24A(R$B(2,A(B$C(2(A(R$D(3(A(B$C
  67. M(2,A(B$B(2,A(R$B(2(A>R0K(R,E*B,C)"0C)B$K(R,A)R,D(R,A(R$C(R4A
  68. M,B$C(2(A(R$B(R0A(R$B(2,A?B!^('X@?B!^('X@?B!^('X@?B!^('X@?B!^
  69. M('X@?B!^('X@?B!^('X@?B!^('X@?B!^('X@8"$A(WX@?B!<)"0A?B!^(%LA
  70. M*"%^('X@6R$H(7X@?B!:(2@B?B!^(%DA*B-^('X@5B$M(GX@?B!5(2PA?B!^
  71. M(%8A*R%^('X@5R$K(7X@?B!7(2HA?B!^(%@A*B%^('X@6"$I(7X@?B!9(2@A
  72. M?B!^(%HA*"%^('X@6"0F(7X@?B!8(2(A(2$E(7X@?B!5(R,A(B(C(7X@?B!3
  73. M(R4A(R$C(6\B?B!@(2(A)"$D(2(A:"$D(2,D?B!:(B,A)"$E(2$A:",B(2<C
  74. M?B!6(28A(R$F(F@A(B,J)V4B92$G(B(B)B(B(V$A)2$Q(R$A8"$A(6,A*2$C
  75. M(20B(2$D(6$A)2$Q(2(A(25;(2$A8R$J(2(A(R$D(B(B8"$E(2\F)B92)"$I
  76. M6B$K(2,A(2$G(F(A)"$R(2(A+"A%)2XI42$L(2(B*B%A(20A,"8T,"8B(BXX
  77. M(2\F/",K(B4A)")A(3<A(B%%(2$D(B(M(3<B(R,G(R0B/2(J(20B(2$C(6(A
  78. M-R5$)B(B+2$V(20B(2$F(B<A/B$J(2,A(R$B(6,A-R$B(48E,2$V(2(B(R0A
  79. M(B<B/B$L(R0A(2%D(B\D(R$B(2,D/"(A(R(B+R$U(2,A*"$G(C\B+"$G(60B
  80. M(2(T(2,A12$F)"PA,R4N(R$G-B0N(24A92$C(2TD(RTZ*"0B+"$R(20A(2(B
  81. M)B(B(B(F(3,C,B$D(64A)"$S(20A1"$V(3`B)2$G)"(A(R$G(3,A+2$F(2,B
  82. M92$D(2PF(28C)#HF)B(M(2\A)R4G(B(B*"$Q(2PB(2(E(2$A(2%D(24D,"$E
  83. M(4,A-R$O(2PB)2$C(2DA,2$J(B4F(2)D(BDM(B$A)R$B/R$W(2\A*B(D)",A
  84. M*2$N(R@D)R$D(F4A-R,H(4$A."$M(2\D)2$I)BDB(2$E(BLA)"%F(3DA(R0A
  85. M(2(B/2$H)"PA+2$R(24A)B(A)BLA)",L(20A92$[(2<A02$X(2TA+R(A(24A
  86. M+",K(2,A+R$E(60A.R$G(S\A."$M(2TB)"(C(20J(B$A(B8D,"(E(6(A.R$H
  87. M(4$A+"TN(3,A(R$H(B0C)R(V(B(A8B$[(2DA02$D*"TA+2$L(BDB)R8B)B(A
  88. M-R$D(6$A.B$K(4`E-B$K(C(A)2$K(R@B-2(E(6`A.R$K(4`A+"0J(2TB*"0B
  89. M(B8B)"(F*2$B)B(K(B4A82$Z(BPA)B0U(3HB+B0D(B8A(2$D(B,B)B0B(R(B
  90. M+B0F(F$A.R$M(20B(R<N(2XB*R$R(2,D(B4E(2,B)",E(24A)R(C(BPA7R$\
  91. M(2TG*B\[(3(A)R(B)"0A(R(D*"<A)B(B(2\A7B$[(30A."$N)"DA,",N(20A
  92. M(20F(2PA(B(D(BDA)B%>(3LA-"$X(3`B*2$L)"(A)R(E(20A(2(E(RXA)2(L
  93. M(24A7B0W(C0A."$P)"<B)"<G(20B(B<B(B(F,"<C*",C(R%>(2,C-"$T(3DA
  94. M/"4O(B,C)B$B(2$B)2$Q(2$A(R,B(24B(R(B(5TB)B(R(30A.2$P)"@B-",J
  95. M(R@A,2$E(20A)B(B(2$A(2%=(2DB,"$T(3DA/"$W(2HA*R$P(2DA*2(C(5XA
  96. M*R,L(34A.2$P(BHA-R(I(2@B(2$B)"HA*2$J(2$A(B%=(2XG)2$U(3DA,"(A
  97. M(R$B(R$X(2HA*B(A)"DA*2$N(EXA+R$E(R$A-B$X)"LF(B(B(B$A-R(J(24G
  98. M+B$H(3$A72$O(2@D-"$Y+RTA(2$U(BLA)2(E(2PA*2$Q(5TA+R$L)#`A."(]
  99. M(30A(R0G(20D(R$L(2DA,2%=(2\A,",M(3DA/2$T(2XA*R$K(2HA,2)<(2XA
  100. M-"XY(3TB-"$M(B$D(B(B(2,B)2$I(2\F6R$N(38A*B$Y(3XA-"$N(2LA*2$J
  101. M(2TB)B%9(2XA-R$J(3DA/R$S(2@D(B$A(B0B(B(E)2(B)"(F(B,B*2%8(2XA
  102. M-B$K(3DA/R$N(B(A+R$K(2$E)"$H(2LA+"%7(2XA-B$K(3DA0"$J)",A*R(C
  103. M(28B(B$E(B0A(R(A(R@B+B%6(2TB-B$K(3DA0"(B)R@A+R$F(B$B+",A(B<D
  104. M+R%7(2TA-R$K(S<A02,P(2XA(B(D(2$H)R(G(C(A6"$M(3<A+D$Y(3(A+B$A
  105. M(B0A,"$G(C,A6"$M(38A,B([(3HA,2$N(28A(B0B(B0D(B4T(5DA+"$W(3,A
  106. M.R$[(3$A+2$F(3`A)"(V(5HA*R(V(3,A.R$L+R$A,"0I(2$F(R0F(B$A(B8T
  107. M(5LA+"$V(3,A.R$D*2\A,R$I(C4A(20W(5PA+2$U(3,A.R4X(3,C*"$G)B<C
  108. M(B(L)"<A7"$M(30A,R$\(3TA,B$J(3(B)B$V(5TA+B$S(3,A/"$](3(A)"8B
  109. M)"0F(2(C(B(A-R%=(BXA,B$S(3PA/2(R)"0A(2(J)2DA+R$G(ETA+B$R(3,A
  110. M/"$W)B$A-"XD)B(B(B0H(2,F)2%?(2XA,B$S(3PA/B$V(2,A(2(F(B\A)2,A
  111. M(R8E8"$O(3`A-"$\(3XA*B0F+"$C)BPB(R4M8"$P(2\A-"$\(3XA."$C(B$B
  112. M,B$C(BDB*"%@(3`B+B$T(3PA-2(B(B,B*2@D*"(B+B0B)"0H)2)@(3$A+B$T
  113. M(3PA.2(D(3<B(B$A(C$A)"$I)"<A8B$Q(2TA-"$\(3\A)RPB(B$E,R4A)20H
  114. M(R%B(3(A*R$T(3TA/R$O(B$C(2,V(2$B,"(E(6(A,B(J(30A/2$\)"LH(2$A
  115. M)3(B(B8B*"@B8R$R(2HD,2$](3DD(R$F)"(B)2,R)"(B)"0D(BHA9"$S(2DA
  116. M(R8K(3TA-"4G(2,C)BDC(BHD(R$B)"(N)2%E(3,A*2$I)R0A/2$O)BLD*2(D
  117. M(R$B*20F(2(B*B,J(68A,R$H(3`L-B$F*3(A+28A+"LA+2@D(6<A,R$H(30A
  118. M)ST\(2PF(2$A*"TA+R@A(F<A-"$D)#0A.B$Z(BDA,R,F(BPA)R8J(F@A-"$D
  119. M(3<A.B$F)SDA,B$B)B$A+2$F)"PA:B$T(2,A-R$Z)R8A.2$Q(B@B+B$E)B(B
  120. M(B(B(6HA-2$A(3@A.B$L(3DA,2$A)"4A+B$G)"HA:B$U(S@A.B$L(3HA,"$A
  121. M)"4M)"(B(BXB:B$U(C@A.B$L(3HA,"$A*"(A+2,T(6LB-"$X(3HA+"$Z(3`A
  122. M)3(B(R<B*R%L(S(B-R$Z(2TA.2$P(24B)"$P(3,A;R$R(3<A.B$M(3DA,"$I
  123. M+B4A)"0K(7`A,2(V(3HA+2$Y(2\B*R$Q(24B+"%P(3$A-B$Z(2TA.2$O(2@R
  124. M)"$E(B8B(B(A(6\A,"$W(3HA+2$Y(2\A*"(C(28B*"$E(BDB(B%O(3`A-R$Z
  125. M(2TC-R$P(2DP)"$C(B@D)"%O(2XA."$Z(2\D+2DO(2DC(2(D)B4A(B8E(R0A
  126. M;R$M(C<B.B$S+2@B)BDG(B(L(B(D+2$B)2)N(2PA."$[(4DA(B4G(2<B(B(A
  127. M)RDB(B0P(6TA+"$X(3LA22,L(2LL(B(A(B$J+B%M(2LA."$[(4DA+R$L(2$H
  128. M(R(E(C0A;24G(3@A.R%)(2\A+2<C(B4D(B0B(BLA<2@X(3LA2B$N(2\H)R0C
  129. M(S`B="$Z(3LA2B$N(2XA(R(F)B0A(R(B)B<A=2(X(3LA2R$M(2XA)"$D(B(D
  130. M(R$V(78B-B$[(4LA+"$O(20A(B(D(B0A*R(K(7<A-2$[(4PA*R$G(B<D(2,E
  131. M)BHC(2(J(7<B,R$[(4PB*B$A)R$A)",C(CDA+B)W(C$A.R%-(2HB*2$A(D$A
  132. M+R%Y(B\A.R$^(BXA-"$A(4,A+R%Z(2XA*S$^(BXA-2)#(3`A>B(L(2LA3B(D
  133. M(B@A,28X(BHA+R%\)2<A(RE.(BXA,R(A(3@B*B(O(7X@(B@C(2<A1"8B)B(B
  134. M*"$V(48A+R%^("@E*"%#(B@D+"$W(D4A+B%^(#8A2B@J(3DA12$C(B@A?B`W
  135. M(4LD+2$R(R(A1R$M(7X@-R)+)"LN(R,B(T@B*R$F(GX@,2%9(BPC42(J(7X@
  136. M.B%'(BTB9"(H(7X@.R%2(2$A:"$G(7X@.R%&(BHC:2,A(B$A?B`[(5(A;2(B
  137. M(7X@/2$K)C0B*2%R(7X@/2$J(28A/2%S(7X@/B$I(2<A/"%R(7X@/R0D(B@B
  138. M."-Q(GX@1",A(2LA-B%S(7X@2"(L(34A?B!^($XA,R%Q(GX@6B$R(7X@?B!1
  139. M(3`B:B1^(&$A,"%M(GX@8B$O(6TB?B!C(2XA?B!^(%4A+"%^('X@5B(K(7X@
  140. M?B!8(2HA="1^(%XA*R%U(GX@4B0I(2HA;2@D(GX@6R$J(7X@?B!9(2DA:R9^
  141. M(&<A*2%^('X@62(H(6HD?B!K)2(B?B!^(&`B?B!^('X@?B!^('X@?B!^('X@
  142. M?B!>*'X@?B!^('X@?B!&)GX@?B!^('X@?B!((GX@?B!^('X@?B!*(GX@?B!^
  143. M('X@?B!*(GX@?B!^('X@?B!&(GX@?B!^('X@?B!^('X@?B!^('X@?B!^('X@
  144. M?B!^('X@?B!^('X@?B!*!QM'3@H*"D1I<W!L87D@36%P#0H@("TM+4AI9V@@
  145. M4F5S;VQU=&EO;BTM+0T*(#$@16YT:7)E(%4N4RX@*@T*"B`@("TM+4UE9&EU
  146. M;2!297-O;'5T:6]N+2TM#0H@,B!.;W)T:"!%87-T("H-"B"Z'D`@Q31%1<"B
  147. M`@D`L'&D`0`$4DQ%3@0L*K```!M'3AP`0)`U5"5%X*0""0!0`:`!``180U52
  148. M!$XJD```:@`:`%`@-44E154PDP(`````````!",`0"!5Y$1$,),"!`````!P
  149. M!P$A`$"0U12$1>"D`A4`\`L```````!@`@`$6$U!6`1.*E`!`/\`````````
  150. M)@!```45)$5`IP)W*0````````!E"0```````#%YEP(```````!0!@``````
  151. M`"`#'*M$*RHJJQ1F'EFKM!(#>0!`(#54)47@I`(5`!``````````8`(`!%1/
  152. M1T8$G2W@82/#+G*X'Q/#H>\BU<)1^R)TPE'](CDVLA(#2`!@(%5$5#549-#9
  153. M`AXV8K0<,RD0````````,I#0&CDVLA(#0P!0(`7%1"53T-D"'C;"A1Q(+F`@
  154. M5414-51TN!_#+D(K*IOMH>\BG2UPN!_#+D(K*G+IH>\BV/M1^R*=+;!I&50V
  155. M@N0"!%)#55)Y-M+,(,,NDBPJ8,.A[R*=+8#D`@120U522"Y`@#54)76V&L,N
  156. M@N0"!%A-05A=[*'O(ITM@.0"!%A#55)(+D"0-50EY2TJ@\>!Y`($6$U!6$@N
  157. M0)`U5"7E+2J#QX$Y'DXJ4`$```````````!(+D"0-50EE2PJ9ZMQN!]4-H+D
  158. M`@190U52>3;2S"#>HC)X'$@N0"`U5"6%Y`($6$-54F>K@>0"!%A-05@)K9$L
  159. M*@FM<;@?5#:"Y`($6$-54GDVTLP@R:*2T!I(+D"0-50EY2TJ@\>!.1XK,5#[
  160. M(ITM@.0"!%A#55)(+D"0-50EY2TJ@\>!Y`($6$-54D@N0"`U5"5UMAJ'^T%E
  161. M(T@N0(`U5"659R/-#)(L*@FM@>0"!%E#55+>HC)X')CCL1(#U2^R$@.U+]+9
  162. M`D@N0(`U5"6%Y`($4D-54F>K<;@?PRZ"Y`($6$U!6%WLH>\BG2V`Y`($6$U!
  163. M6`FMD2PJ":U!92-(+D"`-50EE6<CS0R2+"I4-H+D`@190U52>3:R1"`K,5#[
  164. M(ITM0&4C2"Y`@#54)95G(\T,LA(#U2^R$@/5+[(2`]4OLA(#M2_2V0+8^Y$L
  165. M*D@N0$#U=&2T$@/5+Y)C(RLQ@$(`!%!215`$G2W@82-.*E`!````````````
  166. MA_OAI`(5`!``````````D-`:5#:"Y`($6$-54GDVTLP@5#:"Y`($64-54GDV
  167. MTLP@R:)2+1Q(+C`@Q52$Y`($4DQ35+3*,2\J9ZM!92-(+E`@-44E195G(\T,
  168. M@N0"`U),14@N0"#%5.1$JQS)HI+0&E0V@N0"!%)%3D1Y-M+,($@N,"#%5(3D
  169. M`@524U125,FBDM`:A_O!A1S#+L*B`@<`@"27'OHNTMD"3BI0`0#_````````
  170. M`$XJ4`$`OP````````!.*E`!```!````````3BI0`0#``````````"LQ4/LB
  171. MG2W@I`(5`/`'````````X*0"%0#P!0```````."D`A4```@```````#@I`(5
  172. M```&````````L!(#U2\2(!Y4-H+D`@1934%8>3;2S"!4-H+D`@1834%8>3;2
  173. MS"!?XI%C(RLQD"L``U),10,L*E```!0`,##$)#70V0(>-N*D`A4`,`@`````
  174. M``#@I`(5```$````````$"`>7^+!H@(%`$!E(T@N,"#%5)1G(\T,DBPJU<*1
  175. M8R,K,<`(``-254X#G2W@82,9QA%,(VTN$&#F82,S*1`````````64%P<2"Y`
  176. M(,54Y'2V&E0V@N0"`U),17DVTLP@2"Y``"55!#7L(D@N4"`U125%-2\J_.RA
  177. M[R*=+<"B`A,`X/1$!2+%5(2%&O.B0E@:*S%0^R*=+4"G`DXJ4`$`````````
  178. M``!.*E`!````````````*S$`+QY(+E`@-44E187D`@1214Y$H#'2Y@(%4$])
  179. M3E1(+C`@Q534Y@(%4$])3E2'^X'D`@524$Q4,LFB@N0"!%1/1T9,,C*3`@,`
  180. M```````!,RF0F0``````4$!<&LFB4BT<NN*Q$@/5+]+F`@%F?\;A7R,Y-K(2
  181. !`[(2
  182. `
  183. end
  184.  
  185.